﻿Imports DTO
Imports BUS

Public Class MH_DoiMatKhau

    Private _nguoidungDTO As NguoiDungDTO
    Public Property NguoiDungDTO() As NguoiDungDTO
        Get
            Return _nguoidungDTO
        End Get
        Set(ByVal value As NguoiDungDTO)
            _nguoidungDTO = value
        End Set
    End Property

    Public Function KiemTraDuLieu() As Boolean

        If txtMatKhauCu.Text.Trim() = "" Then
            MessageBox.Show("Chưa nhập mật khẩu cũ.")
            txtMatKhauCu.Focus()
            Return False
        End If
        If txtMatKhauCu.Text.Trim() <> _nguoidungDTO.MatKhau Then
            MessageBox.Show("Mật khẩu cũ không đúng.")
            txtMatKhauCu.Focus()
            Return False
        End If
        If txtMatKhauMoi1.Text.Trim() = "" Then
            MessageBox.Show("Chưa nhập mật khẩu mới.")
            txtMatKhauMoi1.Focus()
            Return False
        End If

        If txtMatKhauMoi1.Text.Trim() <> txtMatKhauMoi2.Text.Trim() Then
            MessageBox.Show("Mât khẩu nhập lại không chính xác.")
            txtMatKhauMoi2.Focus()
            Return False
        End If

        Return True
    End Function


    Private Sub btnThoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnThoat.Click
        Me.Close()
    End Sub


    Private Sub btnDongY_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDongY.Click

        If KiemTraDuLieu() = True Then
            _nguoidungDTO.MatKhau = txtMatKhauMoi1.Text.Trim()
            Dim ndBUS As New NguoiDungBUS
            Dim r As Integer = ndBUS.DoiMatKhau(_nguoidungDTO)

            If r = 1 Then
                MessageBox.Show("Đổi mật khẩu thành công !!!")
            Else
                MessageBox.Show("Đổi mật khẩu thất bại.")
            End If

            Me.Close()
        End If
    End Sub
End Class